home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS08.ADF
/
Text
/
PrintSpooler
< prev
next >
Wrap
Internet Message Format
|
1986-04-02
|
3KB
Path: uwmcsd1!uwmacc!uwvax!seismo!ut-sally!pyramid!amiga!andy
From: andy@amiga.UUCP (Andy Finkel)
Newsgroups: net.micro.amiga
Subject: Corrected Print Spooler for the Amiga
Date: 21 Feb 86 21:56:41 GMT
Organization: Commodore Business Machines, 1200 Wilson Drive, West Chester, PA 19380
New, improved Print Spooler
The old (yesterday) version had a memory leak. This one doesn't.
And a few other things are fixed, thanks to BruceB of C/A.
How to use:
Install the 3 parts in the s directory of your Amiga workbench (or CLI)
disk.
execute startspool once after booting up by typing:
run execute startspool
To spool a file for printing, type
execute print filename
-------------------------------------------
:s/startspool
-------------------------------------------
; Simple Print Spooler
; Program by Andy Finkel
; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
; This is contributed free software.
; Permission to copy and use as long as this notice is included."
; Permission NOT given to sell this program
; (I'd feel guilty if someone paid for this, it was too easy to do!)
;
IF NOT EXISTS ram:spool
makedir ram:spool
ENDIF
IF NOT EXISTS ram:c
makedir ram:c
ENDIF
IF NOT EXISTS ram:t
makedir ram:t
ENDIF
copy c:run to ram:c
copy c:copy to ram:c
copy c:delete to ram:c
copy c:echo to ram:c
copy c:execute to ram:c
copy c:wait to ram:c
copy c:quit to ram:c
copy c:if to ram:c
copy c:endif to ram:c
copy s:spooler to ram:c
cd ram:c
run > NIL: quit +
execute ram:c/spooler
; end of file
---------------------
:s/spooler
---------------------
; Simple Print Spooler
; Program by Andy Finkel
; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
; This is contributed free software.
; Permission to copy and use as long as this notice is included."
; Permission NOT given to sell this program
; (I'd feel guilty if someone paid for this, it was too easy to do!)
;
IF EXISTS ram:spool/file1
copy > NIL: ram:spool/file1 to prt:
echo > prt: " "
delete ram:spool/file1
ENDIF
;
IF EXISTS ram:spool/file2
copy > NIL: ram:spool/file2 to prt:
echo > prt: " "
delete ram:spool/file2
ENDIF
;
IF EXISTS ram:spool/file3
copy > NIL: ram:spool3 to prt:
echo > prt: " "
delete ram:spool/file3
ENDIF
;
wait 30
run > NIL: quit +
execute ram:c/spooler
;end of file
-----------------------
:s/print
-----------------------
.k file/a
; Simple Print Spooler
; Program by Andy Finkel
; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
; This is contributed free software.
; Permission to copy and use as long as this notice is included."
; Permission NOT given to sell this program
; (I'd feel guilty if someone paid for this, it was too easy to do!)
;
IF NOT EXISTS ram:spool/file1
copy <file> to ram:spool/file1
skip
ENDIF
IF NOT EXISTS ram:spool/file2
copy <file> to ram:spool/file2
skip
ENDIF
IF NOT EXISTS ram:spool/file3
copy <file> to ram:spool/file3
skip
ENDIF
echo "spooler busy, try again later"
LAB
;end of file
----------------------------------
andy finkel
Commodore(Amiga)
Disclaimer:
"I disclaim all responsibilities, all sizes, all shapes, all colors"